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EDTSLSUBSN = SUBSTITUTE NEXT Line-mode command 18-Sep-19 4 # 91:96:03 VAX-14 Bliss-32 V4.0-7 Page 1 
14-Sep-1984 12:25:44 DISKSVMSMASTER: tt i°sac LSUBSN.BLI;1 (1) 
; 1 001 gus LE ‘EDTSLSUBSN = SUBSTITUTE NEXT Line-mode command’ 
; ¢ 0 § ULE EDTSLSUBSN ( ! SUBSTITUTE NEX7 Line-mode command 
: Z Z pDENT = 'v04-000' ! File: LSUBSN.BLI Edit: JBS1007 
$ = 
; 5 0005 1 BEGIN 
; 6 Boge 1! 
; aif 4 : atin hatin aaa tata ialal 
3 ‘f ® 
; 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 9 Bot) 1 '® DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
3 13 pet) : e ALL RIGHTS RESERVED. * 
Ps : y 
; ig $O18 1 !'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
9 a 0014 1 !* ONLY IN ACCORDANCE WITH T OF SUCH LICENSE AND WITH THE * 
s ¥§ 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWA R ANY OTHER * 
3; % 0016 1 !* COPIES THEREOF _ NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
: 17 0017 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 18 Bois : 7? TRANSFERRED. * 
° .* 7 
; @& 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
a. 2 OS) 1 !'* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $§ 4 ¢ ! i: CORPORATION. - 
: 626 0034 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; @ 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; B08 1 !® * 
er Or 0027 1 !* * 
: 28 0028 1 lara aera eee eee eee RARER AAA AA AAA E EAR AREA A TEA EAA RARE RERERAAREKEAEREE EEE 
3 9 0029 1! 
3 $9 $080 1 
; 0031 1 !+4+¢ 
3 $ O03 1! FACILITY: EDT -=- The DEC Standard Editor 
Py 3 003 1 3 
3 34 0034 1 ! ABSTRACT: 
3 35 0035 1! 
3 4] 4 1 : This module executes the Line mode SUBSTITUTE NEXT command. 
3 38 sit ! : ENVIRONMENT: Runs at any access mode - AST reentrant 
: rt sk : AUTHOR: Bob Kushlis, CREATION DATE: February 3, 1978 
3 4g 944 1 ! MODIFIED BY: 
ee 0045 1! 
>: 646 ng: 1 ! 1-001 - Original. DJS 30-JAN-1981. This module was created by 
s 65 045 1! extracting the routine the: UB =NXT CMD from the module EXEC.BLI. 
; 646 Bose 1! 1- Oe - Regularize headers. JBS 20-Mar-198 
3; 647 Boe 1 ! 1-003 - Change SUBSTITUTE. to eDts SUB_ NXT re es oreuas eet 
; «648 048 1 ! 1-004 - Worry about string truncation. JBS 05-May-19 
; 6349 049 1 ! 1-005 - Refresh the screen if this c somgend is executed under EXT. JBS 07-Jul-1982 
‘- So F ? 1-998 - Put edt$$tst_eob in Line. STS 2 sep 1982 
3 53 0082 : 1-007 - Remove EDT$$G_SCR_CHGD, not needed by new screen logic. JBS 09-Oct-1982 
; 0053 1 
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EDTS SN EDTSLSUBSN = SUBSTITUTE NEXT Line-mode command ibeSe -1984 01:02:03 VAX-11 Bliss-32 V4.0-74 Page 2 
vite tite Declarations 127808 -138e 93:99:03 WK SUMGMASTERSCEDT Sac SLSUBSN.BLI:1 . (2) 
3 é i ! RSBTTL ‘Declarations’ 
; 1 | TABLE OF CONTENTS: 
6 ae 
3 9 O28 1 
3 60 5 1 REQUIRE ‘EDTSRC: TRAROUNAM'; 
3 61 498 1 
: 6 499 1 FORWARD ROUTINE 
3 o? 289 ! EDTSSSUB_NXTCMD : NOVALUE; ' Process the SUBSTITUTE NEXT command 
: 665 b206 1! 
$ 6 50 1 ! INCLUDE FILES: 
$ 6 504 1! 
3 68 505 1 
3 69 0506 1 REQUIRE ‘EDTSRC:EDTREQ'; 
3 70 0641 1 
: 3 pees i MACROS 
3 7 boca 1! 
3 74 0645 1! NONE 
3 75 0646 1! 
3 76 0647 1 ! EQUATED SYMBOLS: 
3 77 0648 1! 
3 78 0649 1! NONE 
3 79 0650 1! 
; 80 0651 1 ! OWN STORAGE: 
; 81 Be2¢ zB. 
: 82 065 } NONE 
; 1: 

1! 
: 1! 


EXTERNAL REFERENCES: 
In the routine 
| 
| 
} 


R, 
EDT$$SUB_NXT : NOVALUE, 
EDTS$SRD_CURLN, 


See rey ste 


N14 | 
EDTSLSUBSN EDTSLSUBSN = SUBSTITUTE NEXT Line-mode command 16-Sep-1984 01:02:03 VAX-11 Bliss-32 V4.0-74 Page 3 
704-000 EDTS$SUB, NXTCAD - SUBSTITUTE NEXT Line-mode co 122868= 1382 9:96:03 DL SKSVMMASTERSCEDT. SRCTLSUBSN.BLI:1 . (3) 
H Hy 0638 ! ZSBTTL "EDTSSSUB_NXTCMD = SUBSTITUTE NEXT Line-mode command’ 
; Ww Dee 1 GLOBAL ROUTINE EDTSS$SUB_NXTCMD ! SUBSTITUTE NEXT Line-mode command 
co 661 1 : NOVALUE = 
i s b66¢ 1 
; 0665 1 !++ | 
3 3c bere | FUNCTIONAL SPECIFICATION: 
; © B68 1! Command processing routine for SUBSTITUTE NEXT. This command keeps 
3 44 vee : trying to do a substitution until it succeeds. | 
: 99 806? 1 ! FORMAL PARAMETERS: 
; 1 0670 1! 
; 10 0671 1! NONE 
: 10 bore 1! 
: 10 0678 1 i IMPLICIT INPUTS: | 
; Ww 0674 1! 
3; 0675 1! EDTSS$A_CUR_BUF 
: W 0676 1! EDTSSA_EXE CURCMD 
3 40 0677 1! EDTSSA_WK_CN 
: 10 0678 1! 
; 3 0679 1 ! IMPLICIT OUTPUTS: 
s 7) 0680 1! 
: 11 0681 1! EDTS$G_EXE_SUBCNT 
s 0682 1! 
s Fi 0683 1 ! ROUTINE VALUE: 
. 39 0684 1! 
; 1 0685 1! NONE 
3; 1 0686 1! 
ie 0687 1 ! SIDE EFFECTS: 
3s 1 0688 1 ! 
, 33 0689 1! NONE 
3 2 0690 1! 
; Ve 0691 1 !-- 
g Ve 0692 1 
: 12 069 § BEGIN 
: Ie 0694 
g te 0695 EXTERNAL ROUTINE 
3 \s 0696 EDTSSSET_ST 
; 
3 12 % 
: 1 0699 EDTSSRD-NXTLN, 

: i 9700 EDTSSFMT_MSG : NOVALUE; 

i 8 0702 EXTERNAL | 
: 1 7 EDTS$$A_CUR_BUF : REF TBCB BLOCK, 
. % 704 EDTSSA_WK_CN : REF LIN_BLOCK, 

9 705 EDT$$2_E0B_LN , ; 

. 3 7 EDTSS$A_EXE~CURCMD : REF NODE_BLOCK, ! Pointer to the current command. 

§ : 708 EDT$$G_EXE_SUBCNT; ! No. of substitutions done. 

: 4 709 LOCAL 
; ' at STRINGS_OK; | 
or a re MESSAGES ((INVSTR)); | 
>? 71 STRINGS_OK = 1; 
“ee 714 '¢ 
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SUB_NXTCMD = SUBSTITUTE NEXT Line-mode co 14-Sep-1984 12:25: DISKSVMSMAS TER: CEDT.SRCILSUBSN.BLI;1 (3) 


' Check to see if new search and replace strings were specified and, if 
t they were, set them up. 
IF (.EDTSSA_LEXE_CURCMD CSTR_PNT] NEQ 0) THEN STRINGS_OK = EDTS$SET_STR (); 


14 
! Zero the substitute count. 


~  EDTS$G_EXE_SUBCNT = 0; 

i Make sure we are correctly positioned at the current Line. 
EDTSSRD_CURLN (); 

i Loop until a substitution is done or the end of buffer is encountered. 


ates ita WK_LN NEQA EDT$$Z_EOB_LN) AND (.EDTS$$G_EXE_SUBCNT EQL 0) AND .STRINGS_OK) DO 


i "eeteret a single substition on this Line starting at the cursor 
. position. 
EDTSSSUB_NXT (1, .EDTSSA_CUR_BUF CTBCB_CHAR_POS)); 


If no substitutions were performed, try again on the next Line. 


=—NINNNWNNWI WW WIWIWnonony 


f 4 IF (.EDT$$G_EXE_SUBCNT EQL 0) THEN EDTSS$RD_NXTLN (); 

7 END; 

748 IF ( NOT .STRINGS_OK) THEN EDTSSFMT_MSG (EDT$_INVSTR); 

750 END; ! of routine EDT$$SUB_NXTCMD 


-TITLE EDTSLSUBSN Speen - SUBSTITUTE NEXT Line-mo 
e co 
-IDENT \v04-000\ 


-EXTRN EDTSSSET_STR, EDT$$SUB_NXT 
“EXTRN EDT$$RD_CURLN, EDTSS$RD-NXTLN 
-EXTRN EDTSSFMT_MSG, E $$A_COR_BU 
“EXTRN EDTS$A_WR_LN. EDTS$Z—E 
-EXTRN EDTSSA_EXE_CURC 
“EXFRN EDT$$G~EXE~SUBCN 
-EXTRN EDTS_IAVSTR 
.PSECT _EDTSCODE,NOWRT, SHR, PIC.2 | 
000c 00000 .ENTRY EDTSS$SUB NXTCHD Pa R2,R3 : 0660 
53 000000006 00 i 9002 MOVAB EDT$$G_ERE : 
52 1 p06 0000 MOVL #1, ST tt Es be : 0713 
50 000069006 0 D0 900¢ MOVL EDT SSA _EXE_CURCMD, RO : 0719 
AO D 001 TSTL (RO) ~ 5 


SUB_NXTCMD = SUBSTITUTE NEXT Line-mode co 14-Sep-1984 12: 


A 13 18 BEQL 
000000006 99 Fe 1 CALLS 
D if MOVL 
D4 2 1% CLRL 
000000006 00 FB 00024 CALLS 
8 45444443 9 2s MOVAB 
00000006 D 0 CMPL 
1 0 BEQL 
D5 00038 TSTL 
4 12 00030 BNEQ 
4 ES Q003F BLBC 
0 sotied * a 0 gO ok MOVL 
E Cc h(OA C 4 MOVZWL 
01 DD 00040 PUSHL 
000000006 00 0 fe OO4F CALLS 
65 D O838 TSTL 
D1 12 0005 BNEQ 
000000006 00 00 FB Q005A CALLS 
C8 11 00061 BRB 
Dd 52 £8 00063 3$: BLBS 
00000000G 8F DD 00066 4$: PUSHL 
000000006 00 01 FB Bonet CALLS 
04 00073 5$: RET 


; Routine Size: 116 bytes, Routine Base: _EDTSCODE + 0000 


751 «#1 
752 1 !<BLF/PAGE> 


15 
EOT SN EDTSLSULSN = SUBSTITUTE NEXT Line= d 1e-§ 1984 01:02:03 VA 
are" BTNRES aereteaseaanes HASAN CARE 


T 
#0 ED $RB_CURLN 
EDT$$7_E0B_CN, RO 
EDTSSA_WK_CN, RO 


s 
DT$$G_EXE_SUBCNT 
STRINGS_OK, 4$ 

c TS$A_CUR BUF, RO 
VeRO), -(SP) 

#2, EDT$$SUB_NXT 
DTSS¢_EXE_SOBCNT 


#0, EDTS$$RD_NXTLN 
STRINGS OK, 5$ 
fR 


#EDTS_IRNVS 
#1, EDTSSFMT_MSG 


Faget bod Pa 
:CEDT.SRCJLSUBSN.BLI;1 


ee} 


2 dhe” + EDTSSeUB N = SUBSTITUTE NEXT Line-mode command ise ~3007 128% 93:96:03 VAX-11 Bliss-32 V4.0-74 Page 6 
v04 EDTSSSUB_NXTCMD = SUBSTITUTE NEXT Line-mode co 14-Sep-1984 12:25:44 DISKSVMSMASTER: CEDT.SRCJLSUBSN.BLI;1 (4) 
3; «(186 753. 1 END ! of module EDTSLSUBSN 
$ 13? 0734 1 
; 1 755 0 ELUDOM 
3 PSECT SUMMARY 
: Name Bytes Attributes 
: _EDTSCODE 116 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, (CON, PIC,ALIGN(2) 
; Library Statistics 
FP | ae eget 2 pees anna == Syabolg cose Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28:CEDT.SRCJEDT.L32:1 377 82 21 40 00:00.2 | 
: ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 0 7 00:00.1 

| 
3 COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=L1IS$:LSUBSN/OBJ=O0BJ$:LSUBSN MSRC$:LSUBSN.BLI /UPDATE=(ENH$:LSUBSN) 

Btze: 116 code + 0 data bytes 


} 
i 
: Run Time 0:11.5 
: pha Tine: 714.0 
3; Lines/CPU Min: 268 

3; Lexemes/CPU-Min: 11505 
: f Used: 83 pages 
; Compilation Complete 
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